home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 January / inter@ivo 1997-01.iso / cybint12 / bin / artef.dxr / 00180_volta donde.ls < prev    next >
Encoding:
Text File  |  1996-12-14  |  278 b   |  18 lines
  1. on mouseUp
  2.   global donde
  3.   sound playFile 2, "..\som\seta.wav"
  4.   startTimer()
  5.   repeat while the timer < 20
  6.     nothing()
  7.   end repeat
  8.   onVis(21)
  9.   updateStage()
  10.   startTimer()
  11.   repeat while the timer < 30
  12.     nothing()
  13.   end repeat
  14.   InVis(21)
  15.   onVis(2, 3)
  16.   go(donde)
  17. end
  18.